home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Swiftsoft Multimedia Tools / MMTOOL3.EXE / MMTools.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-11-25  |  7.3 KB  |  273 lines
  1. {========================================================================}
  2. {=                (c) 1995-98 SwiftSoft Ronald Dittrich                 =}
  3. {========================================================================}
  4. {=                          All Rights Reserved                         =}
  5. {========================================================================}
  6. {=  D 01099 Dresden             = Fax.: +49(0)351-8037944               =}
  7. {=  Loewenstr.7a                = info@swiftsoft.de                     =}
  8. {========================================================================}
  9. {=  Actual versions on http://www.swiftsoft.de/index.html               =}
  10. {========================================================================}
  11. {=  This code is for reference purposes only and may not be copied or   =}
  12. {=  distributed in any format electronic or otherwise except one copy   =}
  13. {=  for backup purposes.                                                =}
  14. {=                                                                      =}
  15. {=  No Delphi Component Kit or Component individually or in a collection=}
  16. {=  subclassed or otherwise from the code in this unit, or associated   =}
  17. {=  .pas, .dfm, .dcu, .asm or .obj files may be sold or distributed     =}
  18. {=  without express permission from SwiftSoft.                          =}
  19. {=                                                                      =}
  20. {=  For more licence informations please refer to the associated        =}
  21. {=  HelpFile.                                                           =}
  22. {========================================================================}
  23. {=  $Date: 25.11.98 - 13:37:13 $                                        =}
  24. {========================================================================}
  25. unit MMTools;
  26.  
  27. {$I COMPILER.INC}
  28.  
  29. {$DEFINE FULL_INSTALL}
  30.  
  31. {$IFDEF FULL_INSTALL}
  32.        {$DEFINE _WAVE}
  33.        {$DEFINE _VISUAL}
  34.   {$IFDEF WIN32}
  35.        {$DEFINE _DESIGN}
  36.        {$DEFINE _MPEG}
  37.        {$DEFINE _CDROM}
  38.        {$DEFINE _MIXER}
  39.        {.$DEFINE _HDREC}
  40.        {$DEFINE _FILTER}
  41.        {$DEFINE _EFFECTS}
  42.     {$IFNDEF CBUILDER}
  43.        {$DEFINE _DSOUND}
  44.        {$DEFINE _AVI}
  45.     {$ENDIF}
  46.        {.$DEFINE _PCX}
  47.   {$ENDIF}
  48. {$ENDIF}
  49.  
  50. interface
  51.  
  52. procedure Register;
  53.  
  54. implementation
  55.  
  56. {$IFDEF WIN32}
  57.    {$R MMTOOLS.D32}
  58. {$ELSE}
  59.    {$R MMTOOLS.D16}
  60. {$ENDIF}
  61.  
  62. uses
  63.     Controls,
  64.     Classes,
  65.     DsgnIntf,
  66.     {$IFNDEF DELPHI3}
  67.     FiltEdit,
  68.     {$ENDIF}
  69.     SysUtils,
  70.     MPlayer,
  71.     MMAbout,
  72.     MMObj,
  73.     MMUtils,
  74.     MMDesign,
  75.     MMPropEd,
  76.     MMPanel,
  77.     MMLabel,
  78.     MMScroll,
  79.     MMClrBtn,
  80.     MMButton,
  81.     MMLEDs,
  82.     MMLEDLbl,
  83.     MMSpin,
  84.     MMSwitch,
  85.     MMScrlr,
  86.     MMCDInfo,
  87.     MMHTimer,
  88.     MMLTimer,
  89.     MMSplit,
  90.     MMWheel,
  91.     MMEdit,
  92.     MMSlider,
  93.     MMGauge,
  94.     MMEGauge,
  95.     MMProgr
  96.     {$IFDEF WIN32}
  97.     ,MMProps,
  98.     MMScrSv,
  99.     MMMemMap,
  100.     MMFFile,
  101.     MMFFEdit,
  102.     MMFFPrp,
  103.     MMThread
  104.     {$ENDIF}
  105.  
  106.     {$IFDEF _DESIGN}
  107.     ,MMDesReg
  108.     {$ENDIF}
  109.  
  110.     {$IFDEF _WAVE}
  111.     ,MMWavReg
  112.     {$ENDIF}
  113.  
  114.     {$IFDEF _VISUAL}
  115.     ,MMVisReg
  116.     {$ENDIF}
  117.  
  118.     {$IFDEF _MPEG}
  119.     ,MMMpReg
  120.     {$ENDIF}
  121.  
  122.     {$IFDEF _CDROM}
  123.     ,MMCDReg
  124.     {$ENDIF}
  125.  
  126.     {$IFDEF _MIXER}
  127.     ,MMMixReg
  128.     {$ENDIF}
  129.  
  130.     {$IFDEF _HDREC}
  131.     ,MMHdReg
  132.     {$ENDIF}
  133.  
  134.     {$IFDEF _FILTER}
  135.     ,MMFltReg
  136.     {$ENDIF}
  137.  
  138.     {$IFDEF _EFFECTS}
  139.     ,MMFXReg
  140.     {$ENDIF}
  141.  
  142.     {$IFDEF _DSOUND}
  143.     ,MMDsReg
  144.     {$ENDIF}
  145.  
  146.     {$IFDEF _AVI}
  147.     ,MMAVIReg
  148.     {$ENDIF}
  149.  
  150.     {$IFDEF _PCX}
  151.     ,MMPCXReg
  152.     {$ENDIF}
  153.     ;
  154.  
  155. {=========================================================================}
  156. procedure Register;
  157. begin
  158.      RegisterComponents('MMTools', [TMMDesigner,
  159.                                   {$IFDEF WIN32}
  160.                                     TMMProperties,
  161.                                     TMMJoystickProperties,
  162.                                     TMMThread,
  163.                                     TMMMemMapFile,
  164.                                     TMMFastFile,
  165.                                     TMMFastFileDialog,
  166.                                     TMMScreenSaver,
  167.                                   {$ENDIF}
  168.                                     TMMScroller,
  169.                                     TMMHiTimer,
  170.                                     TMMLongTimer,
  171.                                     TMMCDInfo,
  172.                                     TMMScrollPanel,
  173.                                     TMMMarkerPanel,
  174.                                     TMMLED,
  175.                                     TMMLEDMode,
  176.                                     TMMLEDDigit,
  177.                                     TMMLEDPanel,
  178.                                     TMMLEDLabel,
  179.                                     TMMColorButton,
  180.                                     TMMSpeedButton,
  181.                                     TMMSpinButton,
  182.                                     TMMLEDSpin,
  183.                                     TMMSwitch,
  184.                                     TMMWheel,
  185.                                     TMMSlider,
  186.                                     TMMGauge,
  187.                                     TMMProgress,
  188.                                     TMMLEDGauge,
  189.                                     TMMNumberEdit,
  190.                                     TMMFloatNumberEdit,
  191.                                     TMMLabel,
  192.                                     TMMSplitter,
  193.                                     TMMBorder,
  194.                                     TMMPanel]);
  195.  
  196.      {$IFDEF TRIAL}
  197.      RegisterPropertyEditor(TypeInfo(TMMAboutBox),nil,'',TMMAboutBoxEditor);
  198.      {$ENDIF}
  199.  
  200.      RegisterPropertyEditor(TypeInfo(TComponent),TMMLEDDigit,'Connect',TMMLEDDigitConnectEditor);
  201.  
  202.      {$IFDEF WIN32}
  203.      RegisterPropertyEditor(TypeInfo(TFileName),TMMMemMapFile,'FileName',TMMMemMapFileNameProperty );
  204.      RegisterPropertyEditor(TypeInfo(TFileName),TMMFastFile,'FileName',TMMFastFileNameProperty );
  205.      {$ENDIF}
  206.  
  207.      RegisterPropertyEditor(TypeInfo(TWinControl),TMMSplitter,'SizeControl',TMMSplitterSizeControlEditor);
  208.  
  209.      RegisterComponentEditor(TMMDesigner, TMMDesignerEditor);
  210.  
  211.      {$IFDEF WIN32}
  212.      RegisterComponentEditor(TMMFastFile, TMMFastFileEditor);
  213.      RegisterComponentEditor(TMMPropertiesDialog, TMMPropertiesEditor);
  214.      {$ENDIF}
  215.  
  216.      RegisterPropertyEditor(TypeInfo(TMMDeviceId),nil,'',TMMDeviceIdProperty);
  217.  
  218.      { register all additional packages }
  219.  
  220.      {$IFDEF _DESIGN}
  221.      MMDesReg.Register;
  222.      {$ENDIF}
  223.  
  224.      {$IFDEF _WAVE}
  225.      MMWavReg.Register;
  226.      {$ENDIF}
  227.  
  228.      {$IFDEF _VISUAL}
  229.      MMVisReg.Register;
  230.      {$ENDIF}
  231.  
  232.      {$IFDEF _MPEG}
  233.      MMMpReg.Register;
  234.      {$ENDIF}
  235.  
  236.      {$IFDEF _CDROM}
  237.      MMCDReg.Register;
  238.      {$ENDIF}
  239.  
  240.      {$IFDEF _MIXER}
  241.      MMMixReg.Register;
  242.      {$ENDIF}
  243.  
  244.      {$IFDEF _HDREC}
  245.      MMHdReg.Register;
  246.      {$ENDIF}
  247.  
  248.      {$IFDEF _FILTER}
  249.      MMFltReg.Register;
  250.      {$ENDIF}
  251.  
  252.      {$IFDEF _EFFECTS}
  253.      MMFXReg.Register;
  254.      {$ENDIF}
  255.  
  256.      {$IFDEF _DSOUND}
  257.      MMDsReg.Register;
  258.      {$ENDIF}
  259.  
  260.      {$IFDEF _AVI}
  261.      MMAVIReg.Register;
  262.      {$ENDIF}
  263.  
  264.      {$IFDEF _PCX}
  265.      MMPCXReg.Register;
  266.      {$ENDIF}
  267. end;
  268.  
  269. initialization
  270.      { Register the properties for TMMDesigner }
  271.      RegisterProperty(ptOutput,'Misc',TMMCDInfo,'Player',TMediaPlayer,nil);
  272. end.
  273.